home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Utilities / Diagnostic / do-quietly < prev   
Lisp/Scheme  |  1998-10-23  |  503b  |  22 lines
  1. do-quietly form
  2.  
  3. This enables to execute SCOM functions without the message on the Listener.
  4. When you define new functions than use SCOM functions wrap the function
  5. inside do-quietly.
  6.  
  7. (defun new-function (x)
  8.     (diagnostic2 "new-function " x $cr$)
  9.     (do-quietly
  10.         (symbol-transpose 1 (symbol-retrograde x))))
  11.  
  12. When the new-function is evaluated it prints on listener new-function (a b c) and then returns the values.
  13.  
  14. (new-function '(a b c))
  15.  
  16. prints
  17. new-function (a b c)
  18.  
  19. returns
  20. --> (d c b)
  21.  
  22.